home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / tx072291.zip / TXINVOIC.PRG < prev    next >
Text File  |  1991-07-22  |  5KB  |  137 lines

  1. *:*********************************************************************
  2. *:
  3. *:        Program: TXINVOIC.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. txinit()
  12. txreset()
  13. txpagesize("letter")
  14.  
  15. _company   = "Texas Associated Software"
  16. _address1  = "523 La Cresta Drive"
  17. _address2  = "Red Oak, TX  75154"
  18. _phone     = "(214) 617-5260"
  19.  
  20. _customer  = "Nicholas Buno"
  21. _caddress1 = "Malcolm Pirnie, Inc."
  22. _caddress2 = "2 Corporate Park Dr. Box 751"
  23. _cphone    = "White Plains, NY  10602"
  24.  
  25. _invoiceno = "PH07019101"
  26. _purchordr = "Phone Order"
  27. _payterms  = "On Reciept"
  28.  
  29. DO txmacro                  && Define macro to print invoice form
  30. && and constants
  31.  
  32. txcour12r()                 && Set font to Courier 12 point 10 cpi
  33. && Changed with Release 1.11
  34.  
  35. FOR I = 1 TO 1
  36.    txcolprint(03, 54, .F., _invoiceno)
  37.    txcolprint(03, 65, .F., DTOC(DATE()))
  38.    txcolprint(08, 58, .F., _purchordr)
  39.    txcolprint(13, 58, .F., _payterms)
  40.  
  41.    txcolprint(14, 10, .T., _customer)
  42.    txcolprint(15, 10, .F., _caddress1)
  43.    txcolprint(16, 10, .F., _caddress2)
  44.    txcolprint(17, 10, .F., _cphone)
  45.  
  46.    txcolprint(24, 10, .F., "TexAS Laser Printer Library")
  47.    txcolprint(24, 75, .F., "4995")
  48.    txcolprint(25, 10, .F., "Serial #1208900")
  49.    txcolprint(52, 75, .F., "4995")
  50.    txcolprint(60, 75, .T., "4995")
  51.  
  52.    txoverlay(1)         && Print invoice form using macro # 1 overlay
  53.    txpsource(0)         && Print current page
  54. NEXT
  55.  
  56. txclear()
  57.  
  58.  
  59. *!*********************************************************************
  60. *!
  61. *!      Procedure: TXMACRO
  62. *!
  63. *!      Called by: TXINVOIC.PRG
  64. *!
  65. *!          Calls: TXMACBEGIN()   (function  in ?)
  66. *!               : TXSETLPI()     (function  in ?)
  67. *!               : TXLNPRT85()    (function  in ?)
  68. *!               : TXCOLBOX()     (function  in ?)
  69. *!               : TXGRAYBAR()    (function  in ?)
  70. *!               : TXVPRINT()     (function  in ?)
  71. *!               : TXDOTPRINT()   (function  in ?)
  72. *!               : TXCOLPRINT()   (function  in ?)
  73. *!               : TXCOUR12R()    (function  in ?)
  74. *!               : TXMACEND()     (function  in ?)
  75. *!
  76. *!*********************************************************************
  77. PROCEDURE txmacro
  78.  
  79. txmacbegin(1)        && Start Macro #1 Definition
  80.  
  81. txsetlpi(12)         && Set to print 12 lpi for vertical print
  82. txlnprt85()          && Set font to Line Printer 8.5 point 16.67 cpi
  83.  
  84. txcolbox(01, 01, 50, 08, 1)        && Draw From Box
  85. txgraybar(09, 03, 49, 01, 15)      && Draw Shadow under box
  86. txgraybar(02, 51, 02, 08, 15)      && Draw Shadow right side
  87. txcolbox(01, 55, 20, 01, 1, 20)    && Draw Invoice/Date Box Header
  88. txcolbox(01, 55, 20, 04, 1)        && Draw Invoice/Date Box
  89. txcolbox(01, 55, 10, 04, 1)        && Draw Invoice/Date divider
  90. txcolbox(06, 55, 20, 04, 1)        && Draw PO Box
  91. txcolbox(06, 55, 20, 01, 1, 20)    && Draw PO Header
  92. txcolbox(11, 55, 20, 04, 1)        && Draw Terms Box
  93. txcolbox(11, 55, 20, 01, 1, 20)    && Draw Terms Header
  94. txcolbox(12, 01, 50, 08, 1, 20)    && Draw Ship To Box
  95. txcolbox(22, 01, 79, 01, 1, 20)    && Draw Invoice Header
  96. txcolbox(22, 71, 09, 40, 1)        && Draw Amount divider
  97. txcolbox(22, 01, 79, 30, 1,  0, 10) && Draw Invoice Box
  98. txcolbox(23, 78, 02, 39, 1)        && Draw Cents divider
  99. txcolbox(52, 01, 79, 10, 1,  0, 10) && Draw Comments Box
  100. txcolbox(52, 53, 27, 10, 1, 10)    && Draw Totals Box
  101.  
  102. txvprint(02, 01, "From")
  103. txvprint(24, 01, "Ship To")
  104. txvprint(108, 01, "Comments")
  105.  
  106. txsetlpi(6)
  107.  
  108. txdotprint(40, 1700, .T., "INVOICE#          DATE")
  109. txdotprint(290, 1775, .T., "PURCHASE ORDER#")
  110. txdotprint(540, 1800, .T., "PAYMENT TERMS")
  111. txdotprint(1088, 900, .T., "PRODUCT OR SERVICES")
  112. txdotprint(1088, 2200, .T., "AMOUNT")
  113. txcolprint(52, 105, .T., "TOTAL")
  114. txcolprint(53, 105, .T., "SALES TAX")
  115. txcolprint(54, 105, .T., "SHIPPING")
  116. txcolprint(55, 105, .T., "MISC")
  117.  
  118. txcour12r()                 && Set font to Courier 12 point 10 cpi
  119.  
  120. txcolprint(02, 10, .T., _company)
  121. txcolprint(03, 10, .F., _address1)
  122. txcolprint(04, 10, .F., _address2)
  123. txcolprint(05, 10, .F., _phone)
  124.  
  125. FOR I = 24 TO 50 STEP 2
  126.    txgraybar( I, 01, 79, 01, 5)
  127. NEXT
  128.  
  129. txcolprint(60, 54, .T., "Pay This Amount")
  130. txcolprint(53, 05, .T., "Thank you for your business")
  131. txcolprint(55, 05, .F., "Your order supports the ShareWare concept")
  132. txcolprint(57, 05, .F., "Include your serial# in all correspondence")
  133.  
  134. txmacend(1)        && Stop Macro #1 Definition
  135.  
  136. *: EOF: TXINVOIC.PRG
  137.